Application.ExecuteCommand("Display Colors Setup")
DisplayColorsSetupDlg.ColorGrid.Cell("Drill Drawing", "#") = "1"
DisplayColorsSetupDlg.ColorGrid.ClearSelection
DisplayColorsSetupDlg.Ok.Click()

Application.ExecuteCommand("Horizontal Dimension")